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| 
| 
LANGUAGE, (8115532), 
IDENT = 'V | 


BEGIN 


' 
eee eee RAR AERA AAA AAA AAA AAA ARATE TEER TEA AAA 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
tt ALL RIGHTS RESERVED. 


:* THIS SOFTWARE = FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ON N ACCORDANCE THE TERMS OF C C 


oO 
NO 


; N OF TWA OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
- PAANSFERAESY NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

it AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

'e CORPORATION. 

'w DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

WITTTITITITILILIL LLL LLL LLL LIL LLL TLL liiiiiiiiiiiiiitiiiitl 
l+e4 

' 
FACILITY: F11ACP Structure Level 2 


i ABSTRACT: 
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These routines create and initialize a file control block 
from the given file header. 


i 
1 
' 
' 
! ENVIRONMENT : 
1 
] 
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0040 
0041 ! : 
004 ; STARLET operating system, including privileged ayetes services : 
004 : and internal exec routines. These routines must be called in ; 
044 . kernel mode. : 
045 : 
oes : ; 
04 len : 
0048 ! 3 
0049 : ; | : 
Bpee , AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Dec-1976 16:48 : 
t038 | MODIFIED BY: | : 
054 1 | V03-008 CDS0004 Christian D. Saether _ 30-Aug-1984 | ; 
0056 Add optional PRIMFCB argument to CREATE_FCB routine. ‘ 
089 i v03-007 CDS0003 Christian D. Saether 14-Aug-1984 ; 


Sete Se Se Se Oe Se Se Oe ws Oe OH Oe Oe OH Ose Ge OH Oe Se OH Se Oe OH Se Oe OHS Oe Oe Oe Oe SHS Oe BH ee ee 
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OOoOoOooooooooooooo: 
SQN NNN 


OOOCooooooooooooo 
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LIBRARY 
REQUIRE 


FORWARD 


K 2 
16-Sep-1984 99:9 735 VAX-11 Blis 
14-Sep-1984 12:30:14 DISKSVMSMAS 


Have REBLD_PRIM_FCB routine mark windows incomplete. 


v03-006 CDS0002 Christian D. Saether 11-Aug-1984 
Add REBLD_PRIM_FCB routine, 


v03-005 LMP0275 L. Mark Pilant, 12-Jul-1984 14:42 
Initialize the ACL info in the ORB to be a null descriptor 
list rather than an empty queue. This avoids the overhead 
of pOcn ing and unlocking the ACL mutex, only to find out 
that the ACL was empty. 


v03-004 LMP0221 L. Mark Pilant 
Add support for an ORB in the FCB. 


CDS0001 Christian D. Saether 29-Dec-1983 
Use L_NORM Linkage and BIND_COMMON macro. 


v03-002 LMP0059 L. Mark Pilant 27-Dec-1982 9:06 
Make FCB handling consistant with file header existance. 


V03-001 LMP0036 L. Mark Pilant, 29-Jul-1982 13:15 
Set up the initial ACL segment queue. 


V02-003 ACG0241 Andrew C. Goldstein, 
Use common code in INIFC2 to set up FCB 


V02-002 ACG0167 Andrew C. Goldstein, 16-Apr-1980 19:25 
Previous revision history moved to F11B.REV 


33-Apr-1984 9:16 


v03-003 


11-Dec-1981 23:01 


*SYS$SLIBRARY:LIB.L32'; 

*SRCS:FCPDEF .B32'; 

ROUTINE 

CREATE_FCB : L_NORM, ! create a file ontrol block 
UPDATE_FCB : L-NORM NOVALUE; ! update contents of primary FCB 


“Ww 


) 


9| 


' 


2 
FCB 1hese -1984 00:08:35 VAX-11 Bliss-32 V4.0-742 Page 3 
-000 12-80-1984 99:9 214 DISKSVMSMASTER: CF 11X.SRCICREFCB.B32;1 ° (2) 
; 44 } $ } GLOBAL ROUTINE CREATE_FCB (HEADER, PRIMFCB) : L_NORM = ; 
; WwW 1088 1 !++ ; 
; 100 1089 1! : 
; 13) 1981 ! FUNCTIONAL DESCRIPTION: : 
5 108 1 4 This routine creates an FCB and initializes it according to | : 
; 104 1093 1! the given file header. ; 
: 105 see 1! ; 
; 106 1095 1 ! CALLING SEQUENCE: ; 
; 107 1096 1! CREATE_FCB (ARG1) ; 
; 108 344 2. ; 
: 109 1098 1 | INPUT PARAMETERS: | ; 
; 419 1099 1! ARG1: address of file header : 
: 1 1199 } ARG2: optional arg to specify primary fcb | ; 
; 118 1186 1 ! IMPLICIT INPUTS: : 
3; «114 1105 1! NONE ; 
s 115 1104 1! ’ 
; «#116 1105 1 ! OUTPUT PARAMETERS: 2 
:. oer 1106 1! NONE : 
; «6118 1107 1! : 
3; 6119 1108 1 ! IMPLICIT OUTPUTS: > 
: 120 1109 1! NONE : 
3. tei 1110 1! ; 
3: 122 1111 1 =! ROUTINE VALUE: : 
s 125 aT 1! ADDRESS OF FCB ; 
: 124 111 & ‘ 
s Yeo 1114 1 ! SIDE EFFECTS: : 
: 126 1116 1! FCB created and initialized . 
s 127 1116 1! : 
; 128 1117 1 Se : 
: 129 1118 1 ; 
, 150 1119 BEGIN : 
3 «(131 1120 : 
3 132 1121 MAP ; 
Shae 1156 HEADER : REF BBLOCK; ! file header argument . 
s 136 112 ; 
s 135 \1se LOCAL ; 
; «4136 1125 : REF BBLOCK, ! address of FCB created : 
3 4 1197 FCB_ORB : REF BBLOCK; ! address of ORB created : 
3; «4139 1128 BIND_COMMON; : 
; 140 1199 | ; 
3; (141 1130 EXTERNAL ROUTINE : 
: 14@ 1131 ALLOCATE : L_NORM, ' allocate dynamic memory 3 
; 1¢7 iy § INIT_FCB2 : L_NORM; ! initialize contents of FCB : 
3; «6145 1134 ! Allocate an FCB sized and typed block. Then use the common routine | 3 
: 166 1135 ' to init it. ‘ 
3 (14 11 § ! 3 
3; 148 11 : 
3; 149 1138 FCB = ALLOCATE (FCBSC_LENGTH, FCB_TYPE); : 
: 150 1139 FCBCFCBSL_WLFL) = aa ; : 
3; 6151 1140 FCBLFCBSL_WLBLJ = FCBLFCBSL_WLFLJ; : 
3 136 1125 FCBLFCBSL_STVBN) = 1; ! init start VBN to 1 3 


2 
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} 
| 
' Now for the ORB initialzation. | 
| 
| 


~—s 


> 156 1143 

: 155 1144 

: 1 5 1145 2 FCB_ORB = FCBCFCBSR -0RB) 

= 1146 FCB-ORBCORB$W_SIZE ORASC _LENGTH; 

: g 1147 FCB[ORBLORBS$B-TYPE) = DYNSC~ORB; 

: 160 1149 ! Common initialization. 

: 16¢ 1181 IF ACTUALCOUNT EQL 2 

: 16 1 é THEN 

: 164 115 INIT_FCB2 (.FCB, .HEADER, .PRIMFCB) 

> 165 1154 ELSE 

; 166 1199 INIT_FCB2 (.FCB, .HEADER); 

: 168 1137 INSQUE (.FCB, .CURRENT_VCBCVCBSL_FCBBLJ); ! Link into queue 

: 170 1159 2 RETURN .FCB; 

: (171 1160 

s fe 1161 1 END; ! end of routine CREATE_FCB 
.TITLE CREFCB 
SIDENT \V04-000\ 


| 
EXTRN ALLOCATE, INIT_FCB2 
PSECT $CODE$,NOWRT,2 


0004 00000 .ENTRY CREATE_FCB, Save R2 : 1086 
7E D4 00002 CLRL ss = (SP) : 1138 
7E B4 8F 9A 00004 MOVZBL #180, -(SP) : 
00006 CF 02 FB 00008 CALLS #2, ALLOCATE ; 
52 50 00 0000D MOVL RO, FCB : 
10 A2 10 a2 9E 00010 MOVAB 16(FCB), 16(FCB) + 1139 
14 A2 10 A2 9€ 00015 MOVAB 16(R2), 20(FCB) : 1140 
2c Ad 01 DO OOO1A MOVL #1, 44(FCB) : 1141 
50 58 =A2 «9E OOO1E MOVAB 88(R2), FCB_ORB : 1145 
08 Ad 58 «BF «O90 00022 MOV7BW 88, 8 (FCB ORB) + 1146 
0A AO 49 8F 90 000 OVB #73. 10(FCB_ORB) + 1147 
02 6C 91 0002C CMPB ss, 2 + 1151 
OD 12 0002F BNEQ 1$ : 
7E 04 AC 7D 00031 MOVQ HEADER, -(SP) > 1153 
52 DD 00035 PUSHL FCB : 
00006 CF 6 FB 00 7 CALLS #3, INIT_FCB2 : 
A 1 C BRR 2$ 3 
04 AC DD OO03E 1$: PUSHL HEADER : 1155 
00006 CF 35 Pe Soods CAs Woe INIT FCB2, : 
me fh 98 AA 00 Booc8 2$: HOVE 104 (BASE) . RO : 1157 
8 $5 6 0036 MOVL FCB, ko” : 1159 
04 0005 RET : 1161 


; Routine Size: 84 bytes, Routine Base: $CODE$ + 0000 
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oc 
PPR. ODD ADA DAODDOOAOAO oOo oO = Re NNN 


FO PR Oe ESTE HS HS TS HS HS HS HS HS HS HS HS HS HS HS HS HS HS HS HS FSIS HS HS HS HS FETS FEES HSS ESSE SHS FSFE TSS HS SSH HSS FSFE SSO *OTS 


caer 18-Sep-1964 00:08:35 VAN-T Blise=32 V4.0-742, Page 46 


-EXTRN FILL_FCB 


0000 00000 - ENTRY ears FCB, Save nothing : 1162 
08 AA D5 0000 TSTL oe fon ASE) 3; 1209 

OF 13 00005 BEQL 3 
01 AA 08 88 00007 BISB2 i. 1 (BASE) : 1212 
04 AC DD 00008 PUSHL sr : 1213 

08 AA DD QOODE PUSHL SCBA 3 

0000G CF 02 FB 00011 CALLS #2, *PTLL _FCB ; 
04 00016 1$ RET 3 1216 


; Routine Size: 23 bytes. Routine Base: $CODE$S + 0054 


: 229 1217 1 
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GLOBAL ROUTINE REBLD_PRIM_FCB (PFCB, HEADER) : L_NORM NOVALUE = 


P+ 
o 
~~ 


7 
JCREFCB.832; fae * a) ve 


tas 

' 

Functional Description: 

This routines removes ACL's, if any, and deletes the extension 
FCB chain, if 


an 
The access lech ; rearmed if the fcb is stale. 
It then rebuilds the fcb from the header, if present. 


BEGIN 
MAP 


PFCB : REF BBLOCK, 
HEADER : REF BBLOCK; 


BIND_COMMON; 


EXTERNAL ROUTINE 
ACL_DELETEACL, 
CONV_ACCLOCK : LNORM, 
DEL_EXTFCB : LINORM NOVALUE, 
INIT F FCB2 : LINORM NOVALUE, 
MARK_INCOMPLETE : L_NORM NOVALUE; 


IF BLOCK CPFCB CFCBSR_ORBI, ORBSV_ACL QUEUE 


MIMIMPONOPOPO ONO NOPONo PoP PoNo ono nononononononyd: 
PAA BB BB PEE PW 
—OODNAUE WN “OO DNAUEWWNR—"OCOONOUFWR 
el el ee ee ee cD ee ee ee ee ed dd dd 2d od dd WD 


POPINPINIPIPONPIPDININPYNININYNININININININININININININININYPUPYPINYAINPONYPONONY 
PEPE PLXRD Mss £ BS BB EB AAA AAW 


=P IPINIPIPNYNINPIPPIPYNIPIAINPIPININIPINIPUNIPERINININIPINIPUNININID 2 OS OO OS SS 
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ACL_DELETEACL (PFCB CFCBSL_ACLFLI, 0); 

es DEL_EXTFCB (.PFCB); 
$3? — (PFCB CFCBSV_STALE)) 
see - NOT CONV_ACCLOCK (.PFCB CFCBSB_ACCLKMODE], .PFCB) 
$93 BUG_CHECK (XQPERR, ‘unexpected lock manager reaction'); 
4 4 «HEADER EQL 0 

a RETURN; 

23 INIT_FCB2 (.PFCB, .HEADER); 

As MARK_INCOMPLETE (.PFCB); 

79 END; ! of routine REBLD_PRIM_FCB 


.EXTRN ACL PEL ETEACL, CONV_ACCLOCK 
EXTFCB, MARK_INCOMPLETE 
*EXTRN BUGS XQPER Be 


0000 00000 -ENTRY REBLD_PRIM_FCB, Save nothing ; 1218 


280 1267 
281 1268 1 END 
282 1269 0 ELUDOM 


SCODES 


File 
-$255$DUA28: CSYSLIBILIB.L32;1 
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Name Bytes 


5 
4 


a 00000080 


PSECT SUMMARY 


) 
16 
14 
04 AC 00 000 
Si 
+4 C1 OB 
2 FB 16 
04 AC DD 1B 18: 
01 F 8} 
04 ag D 
08 €E 0 
04 AC DdO 0002C 
50 4 0030 
OB A A 8 ¢ 
56. €8 
E8 00038 
FEFF QOO3E 
0000+ 498 
08 ac 0 4k 2$: 
11 13 0004 
04 aC 70 00047 
02 FB 00048 
04 AC DD 00050 
01 FB 00053 
04 00058 3$: 
SCODES + 0068 
Attributes 


196 NOVEC,NOWRT, RD , EXE,NOSHR, 


10 63 
7E 04 
0000G C 
00006 
16 22 
, 00006 
00006 
00006 
; Routine Size: 89 bytes, Routine Base: 


Library Statistics 


Symbols 
Total Loaded Percent 
18619 31 0 


3 
w$2p-1986 12:50 


:3 
21 
P 
# 


MOVL FCB. RO 
BBC 1, 99(RO), 1$ 
CLRL (§p) 
ADDL3 #128, PFCB, -(SP) 
CALLS #2, ACL_DELETEACL 
PUSHL 
CALLS #1, DEL_EXTFCB 
MOVL PFE 
BBCC #8, $4(RO), 2$ 
MOVL  PFCB, RO 
PUSHL 
MOVZBL 11(RO), =(SP) 
CALLS #2, CONV_ACCLOCK 
BLBS RO, 2$ 
BUGW 
.WORD  <BUG$_XQPERR!4> 
TSTL HEADER 
BEQL 
MOVO  PFCB, -(SP) 
CALLS #2, INIT_FCB2 
PUSHI. 
CALLS #1, MARK_INCOMPLETE 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
1000 00:01.9 


5 VAX=11 Bliss-32 V4 
4 —_ DISKSVMSMASTER: CF11X.SRCICREFCB.B32; 


0-742 


Pa 
1 9 


e 
(4) 


1246 
1248 


1250, 
1252. 
1254 | 


F 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CREFCB/OBJ=OBJ$:CREFCB MSRC$: CREF CB/UPDATE=(ENH$: CREF CB) 


; Size: 196 go 8 + 0 data bytes 
. Run “rime: :50.8 

; Elapsed Time: 258.4 

; Lines/CPU Min: 

; penenees Pema) 67319 


Used: 193 pages 


; ee Amey Complete 


9 } 


eg ohx1882 98:98:42 | BaScbimGmaStenschiix.seeacrerca.e32;1°%° (4) 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE DIGITA 
VAX/VMS V4.0 CONFID 


